Top 10k strings from Small Business Accounts (1983)(Sinclair Research).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TAP] (TOSEC-v2007-01-01) /

Back to the directory listing

  12  PRESS R FOR HARD COPY 
   9 "accounts"
   8 "Is copy OK (y or n) ";r$
   6 ,fo;"TRY AGAIN PLEASE"
   6 "AT 15% THIS SHOULD BE ";
   6  INCORRECT ENTRY 
   5  TRY AGAIN"
   4 ;"a/c GROSS      VAT"
   4 ;"6.Repairs";
   4 ;"15.Insurance"
   4 ;"       "
   4 ;"            "
   4 ----------
   4 ,fo;"TOTAL";
   4 ,fo;"      ";
   4 )="Wages":
   4 )="Own fnds":
   4 )="Loans in":
   4 )="Discount":
   4 ((k-b)*(w*100
   4  enter amount 
   4  SELECT ACCOUNT NO. PLEASE 
   4  PRESS R FOR COPY 
   4  HOW MANY INVOICES ? 
   4  ENTER VAT INV.NO. 
   4  ENTER GROSS VALUE INV.NO. 
   4                                 
   3 ,fo;"1.Adverts";
   3 )="VATout":
   3 )="Prepay":
   3 )="Intrst in":
   3 "3.Goods    8.Teleph   12.Fur.Fit"
   2 to check only numbers
   2 j$="                                "
   2 if ok press 
   2 i$="micro"
   2 c(x)=c(x)+m
   2 TOTAL VAT OUTPUT TAX 
   2 TOTAL SALES INCLUSIVE"
   2 TOTAL SALES EXCLUSIVE
   2 TOTAL PURCH.INCLUSIVE"
   2 TOTAL PURCH.EXCLUSIVE"
   2 SALES VAT INCLUSIVE
   2 SALES VAT EXCLUSIVE"
   2 PURCH.VAT INCLUSIVE"
   2 PURCH.VAT EXCLUSIVE"
   2 PURCH.INVOICE ENTRY 
   2 PROGRAM   
   2 OR N FOR MENU"
   2 OR N FOR MENU
   2 JANFEBMARAPRMAYJUNJUKAUGSEPOCTNOVDECI
   2 IS NOW CLEARED 
   2 BALANCE SHEET 
   2 B/Ledger Discount Wages    VATout   Intrst ouPetty CasSundry   PAYE     Own use  Total out
   2 ;j$;j$;j$;j$;j$;j$
   2 ;"You have entered ";r$
   2 ;"YOU HAVE ENTERED ";d$
   2 ;"VEHCLES"
   2 ;"THIS IS CORRECT"
   2 ;"Rec'd for";
   2 ;"Please try again"
   2 ;"PRESS ANY KEY TO START AGAIN"
   2 ;"NIL(CAR) "
   2 ;"MACHNRY"
   2 ;"GROSS      VAT"
   2 ;"FUR.FIT"
   2 ;"DEBTORS"
   2 ;"CSH.HND"
   2 ;"CSH.BNK"
   2 ;"6.SUNDRY"
   2 ;"4.SALE GOODS"
   2 ;"2.TRAVEL"
   2 ;"(i.e. as 1983 APR 15)"
   2 ;" TRY AGAIN PLEASE "
   2 ;" TOO LARGE ":
   2 ;" PROF & LOSS ACCOUNT ";
   2 ;"                     "
   2 ,fo;u;".";b$(u)
   2 ,fo;j$'j$'j$'j$
   2 ,fo;"allocation";
   2 ,fo;"VAT OUT";
   2 ,fo;"THE QUARTER VAT ACCOUNT WILL BE"
   2 ,fo;"SALES"
   2 ,fo;"PROFIT";
   2 ,fo;"PREPAY";
   2 ,fo;"P.A.Y.E";
   2 ,fo;"OWN FND";
   2 ,fo;"OWE BNK";
   2 ,fo;"LOANS";
   2 ,fo;"G.PROF"
   2 ,fo;"CRDTORS";
   2 ,fo;"CONSUMP"
   2 ,fo;"CL.STK"
   2 ,fo;"5.STATNRY";
   2 ,fo;"3.POSTAGE";
   2 ,fo;"1.WAGES";
   2 )=11548.31
   2 )="csh sales":
   2 )="Vehcles":
   2 )="VATin":
   2 )="Total out"
   2 )="Total in"
   2 )="Teleph":
   2 )="Sundry":
   2 )="Sundry in":
   2 )="Sundry in"
   2 )="Sund out":
   2 )="Stat&Post":
   2 )="Sales Inc":
   2 )="Sales Ex":
   2 )="Repairs":
   2 )="Rent Rate":
   2 )="Purch.Inc":
   2 )="Purch.Ex":
   2 )="Premises":
   2 )="Petty Csh":
   2 )="Petty Cash":
   2 )="P.A.Y.E.":
   2 )="P and L":
   2 )="Own use":
   2 )="Op.Stock"
   2 )="Op.Stck"
   2 )="Motor Exp":
   2 )="Machinery":
   2 )="Intrst out":
   2 )="Intrst out"
   2 )="Insrnce"
   2 )="Goods":
   2 )="Deprtion":
   2 )="Creditors":
   2 )="Cl.Stck":
   2 )="B/Ledger":
   2 )="Adverts":
   2 )-v)*w*100
   2 )-(o-n+n(19
   2 (max.9 letts.)"
   2 ((k-b)*w*100
   2 "LIABLTs. 
   2 "CURRENT STOCK VALUE = ";N(16
   2 "5.Stat+Pst 10.Sundry  14.Machnry"
   2 "5.Petty Csh a/c 10.Nom.Ledger"
   2 "4.Purch. ''''   9.Balance Sheet"
   2 "4.Lt.Heat  9.Motor Exp13.Vehcles"
   2 "4.Lt.Heat  9.Motor    13.Vehcles"
   2 "3.Sale Invoices 8.P and L a/c"
   2 "2.Rent Rate7.Trav.Ent 11.Prems."
   2 "2.Rent Rate7.Trav Ent.11.Prems."
   2 "2.Cash Book Out 7.Trading a/c"
   2 "15.Close down   16.Stock adjust"
   2 "1.Cash Book In  6.VAT Return"
   2 "(lower case letters please)"
   2 "(Maximum 8 at a time)"
   2 " Select a number from this list"
   2 "     This is incorrect"
   2 "     For the last time"
   2 "      Complete with spaces"
   2  press r for hard copy 
   2  pay in ";d$
   2  allocation ? 
   2  YOU WILL NEED TO RELOAD 
   2  YOU HAVE ENTERED 
   2  VAT RETURN 
   2  TRADING ACCOUNT 
   2  TOTAL VAT INPUT TAX 
   2  TOTAL FOR VAT YEAR 
   2  THE TAX MAN OWES YOU 
   2  THANK YOU AND GOODBYE FOR NOW 
   2  SUPPLIERS NAME 
   2  SPECIAL PROCEDURES 
   2  SALES OR PURCH.CR.NOTE 
   2  SALES INVOICE ENTRY 
   2  PRESS R OR N PLEASE 
   2  PRESS R FOR HARD COP
   2  PRESS N FOR MENU 
   2  PLEASE ENTER YOUR CODE WORD 
   2  PLEASE ENTER DATE 
   2  PETTY CASH ACCOUNT 
   2  No.of payments to enter ? 
   2  Incorrect 
   2  HOW MANY ENTRIES 
   2  HAVE YOU RECORDED TO TAPE ? 
   2  GOOD MORNING 
   2  Enter payee name 
   2  Enter PAYE amount 
   2  ERROR. YOU HAVE TAKEN VAT 
   2  ENTER VAT AMOUNT 
   2  ENTER VAT 
   2  ENTER REVISED VALUE 
   2  ENTER NHIS AMOUNT 
   2  ENTER GROSS VALUE OF C/NOTE 
   2  ENTER GROSS VALUE 
   2  DATA ENTRY 
   2  DATA ACCESS 
   2  Cash book 
   2  CREDIT NOTES 
   2  CHECK. IF OK PRESS y. IF NOT, n
   2  CASH BOOK 
   2  Again please 
   2  ANY PAYE OR NHIS 
   2  ACCOUNT ALLOCATION PLEASE ? 
   2  (y or n)"
   2  (max.8 letters)"
   2   YOU OWE THE TAX MAN 
   2    WILLDEN 'ACCOUNTS
   2          "
   1 pay out ";d$
   1 m$="JANFEBMARAPRMAYJUNJUKAUGSEPOCTNOVDEC":
   1 m$="JANFEBMARAPRMAYJUNJUKAUGSEPOCTNOVDEC"
   1 intro     
   1 i2=i2+n(j)
   1 i2=i2+n(28
   1 i1=i1+n(j)
   1 csh salesOwn fnds Loans in Intrst inS/Ledger Discount Sundry inVat Recd.Sales0VATTotal in 
   1 csh salesOwn fnds Loans in Intrst inS/Ledger Discount Sundry inVat Recd          Total in 
   1 accounts  Z
   1 accounts  T
   1 accounts  
   1 Own fnds P and L  Loans in CreditorsP.A.Y.E. Prepay   VATout   Premises MachineryFurn fitsVehcles  Petty CshBank in  Debtors  Bankout  Cl.Stck  Prepay   Goods    Rent RateIntrst inIntrst ouLight+ht Stat&PostRepairs  Deprtion Trav&Ent Teleph   VATin    Sales Ex Sundry inWages    Sund out Motor ExpGr.ProfitAdverts  Purch.IncSales IncPurch.Ex Insrnce  FwdVatSi FwdVatSe FwdVatPi FwdVatPe FQVSi    FQVSe    FQVPi    FQVPe    FQVatOut FQVatin  FQVatDUE Op.Stck  
   1 Own fnds P and L  Loans in CreditorsP.A.Y.E. Prepay   VATout   Premises MachineryFurn fitsVehcles  Petty CshBank Cr. Debtors  Owe Bank Cl.Stck  Prepay   Goods    Rent RateIntrst inIntrst ouLight&Ht Stat&PostRepairs  Deprtion Trav&Ent Teleph   VATin    Sales Ex Sundry inWages    Sund out Motor ExpGr.ProfitAdverts  Purch.IncSales IncPurch.Ex Insrnce  FwdVatSi FwdVatSe FwdVatPi FwdVatPe FQVSi    FQVSe    FQVPi    FQVPe    FQVatOut FQVatin  FQVatDUE Op.Stck  
   1 Incorrect, please try again
   1 ;j$;j$;j$;
   1 ;j$'j$'j$'j$'j$'j$'j$
   1 ;"a/c ALLOCATION: ";m
   1 ;"ZERO RATED SALES"
   1 ;"THIS SECTION ONLY TO BE USED FOR"'"  SAVING INITIALISATION DATA.   ":
   1 ;"Supplier----"
   1 ;"RECORDER"
   1 ;"QUARTER VAT ACCOUNT"
   1 ;"PLEASE WAIT......."
   1 ;"OP.STK";
   1 ;"LOADING. PLEASE WAIT..."
   1 ;"INSERT DATA TAPE AND START"
   1 ;"INCORRECT. PLEASE TRY AGAIN":
   1 ;"INCORRECT. AGAIN PLEASE":
   1 ;"CHEQUE NOW AND CLEAR THE"
   1 ;"CHEQUE AND CLEAR THE VAT"
   1 ;"BE PAID THEN MAKE OUT THE"
   1 ;"BE  PAID THEN MAKE OUT A"
   1 ;"ACCOUNT NOW"
   1 ;"7.OWN USE"
   1 ;"14.Machnry"
   1 ;"10.Sundry ";
   1 ;"10.Sundry  14.Machnry"
   1 ;"1.Adverts";
   1 ;"(or m for menu)":
   1 ;"(or m for menu)"
   1 ;" VERIFIED ":
   1 ;" VAT-MANUAL PAGE 22":
   1 ;" THIS SECTION ERASES DATA "
   1 ;" SAVE INITIALISATION DATA ":
   1 ;" REWIND TAPE AND PRESS 'play'"'" TO VERIFY ":
   1 ;" REWIND TAPE AND PRESS 'play' "
   1 ;" PRESS r TO PROCEED "
   1 ;" PRESS r FOR HARD COPY "
   1 ;" PRESS ANY KEY "
   1 ;" NUMBER INCORRECT ":
   1 ;" INITIALISATION "
   1 ;"           "
   1 -(((((----
   1 ,fo;j$;j$;j$;j$;j$;j$;j$
   1 ,fo;j$;j$;j$;j$;j$;j$
   1 ,fo;j$;j$;j$;j$;j$
   1 ,fo;j$;j$;j$
   1 ,fo;j$'j$:
   1 ,fo;j$'j$'j$'j$'j$'j$'j$
   1 ,fo;"a/c ALLOCATION: ";m
   1 ,fo;"Supplier----"
   1 ,fo;"RESTART THE ROUTINE AT ANY TIME"'"BY PRESSING 'r'."
   1 ,fo;"PURCH"
   1 ,fo;"PAYE=";q:
   1 ,fo;"PAYE":
   1 ,fo;"OP.STK";
   1 ,fo;"NOTE:  IF THE AMOUNT IS DUE TO"
   1 ,fo;"NOTE:  IF THE  AMOUNT IS DUE TO"
   1 ,fo;"NHIS=";r
   1 ,fo;"NHIS":
   1 ,fo;"INVERSE"'"FIGURES"'"=MINUS"
   1 ,fo;"Gr.Profit"
   1 ,fo;"BUT NIL FOR WAGES OR POSTAGE"
   1 ,fo;"BUT 0 FOR WAGES OR POSTAGE"
   1 ,fo;" THIS PERIOD  "
   1 ,fo;" PRESS r FOR HARD COPY "
   1 ,fo;" OR n FOR MENU "
   1 ,fo;" INCORRECT. TRY AGAIN "
   1 ,fo;"   THE PROGRAM  WILL  CREATE A     FICTITIONAL COMPANY FOR YOU     TO EXPERIMENT WITH. IT WILL     SET UP THE OPENING  BALANCE     SHEET AND THEN DISPLAY  THE     START UP FIGURES."
   1 ,fo;"     FIGURES DO NOT BALANCE     ":
   1 )=36747.31
   1 )="Vat Recd.":
   1 )="Vat Recd":
   1 )="VATout"
   1 )="Trav&Ent":
   1 )="Trav&Ent"
   1 )="Sales0VAT":
   1 )="S/Ledger":
   1 )="S/Ledger"
   1 )="Prepay"
   1 )="Owe Bank":
   1 )="Light+ht":
   1 )="Light&Ht":
   1 )="Intrst in"
   1 )="Gr.Profit":
   1 )="Gr.Profit"
   1 )="FwdVatSi":
   1 )="FwdVatSi"
   1 )="FwdVatSe":
   1 )="FwdVatSe"
   1 )="FwdVatPi":
   1 )="FwdVatPi"
   1 )="FwdVatPe":
   1 )="FwdVatPe"
   1 )="Furn fits":
   1 )="Furn fits"
   1 )="FQVatin":
   1 )="FQVatin"
   1 )="FQVatOut":
   1 )="FQVatOut"
   1 )="FQVatDUE":
   1 )="FQVatDUE"
   1 )="FQVSi":
   1 )="FQVSe":
   1 )="FQVPi":
   1 )="Debtors":
   1 )="Debtors"
   1 )="Bankout":
   1 )="Bank in":
   1 )="Bank Cr.":
   1 (i1-i2)>.01
   1 "Value-";(n$(j));r$:
   1 "THE BALANCE SHEET.PRESS N WHERE"
   1 "THE ACCOUNT IS TO BE RETAINED."
   1 "THE ACCOUNT IS NOT TO BE CLEARED"
   1 "Not used"
   1 "IN THE BALANCE SHEET. PRESS N IF"
   1 "IF START-UP COINCIDES  WITH NEW"'"VAT PERIOD, INCLUDE ANY NET VAT"'"WITH  CREDITORS OR  DEBTORS, AS"'"THE CASE MAY BE.":
   1 "FOR SETTLEMENT AS WILL BE GIVEN"
   1 "CREDITORS OR  DEBTORS  TOTAL IN"
   1 "CLEARED IF YOU PRESS R BUT THE"
   1 "CLEARED IF  YOU PRESS R BUT THE"
   1 "CHECK BAL. SHEET THEN SAVE DATA."'"DO NOT ADD FURTHER TRANSACTIONS."
   1 "Again please."
   1 "AND WILL BE TRANSFERRED  TO THE"
   1 "AMOUNT SHOWN WILL STILL BE DUE"
   1 "AMOUNT SHOWN WILL STILL  BE DUE"
   1 "5.Stat post";
   1 "5.Stat Post";
   1 "3.Goods    8.Teleph.  12.Fur.Fit"
   1 "13.Spare        14.Save to tape"
   1 "13.Initialise   14.Save to tape"
   1 "11.Cr.Notes     12.Training"
   1 "11.Cr.Notes     12.Load Data"
   1 " Again please."
   1 "  enter the following please:-"
   1 "   USED IF ACCOUNT DATA IS IN"
   1 "   THIS SECTION SHOULD NOT BE"
   1 "   MEMORY AS THE DATA WILL BE"
   1 "   ERASED"
   1 "     TYPE y OR n (YES OR NO)"
   1 "     TYPE Y OR N (YES OR NO)"
   1 "          (to verify) "
   1  TRY AGAIN":
   1  TRAINING ROUTINE 
   1  THIS QUARTER 
   1  SPECTRUM ACCOUNTS 
   1  PRESS R IF YOU WISH TO PROCEED 
   1  OWN FUNDS 
   1  OR PRESS N FOR MENU 
   1  INITIALISATION 
   1  FOR YOUR BUSINESS 
   1                                 K4
   1                                 K$